(* FvData.pas *)

program FvData;

uses stack;

const
   ITEMS_NR = 10;
   
var
   i	    : integer;
   item	    : info;
   ItemsTab : array[1..ITEMS_NR] of info =
   (
    (typ:'FVZ';wartosc:123.456),
    (typ:'FVZ';wartosc:321.654),
    (typ:'FVZ';wartosc:654.123),
    (typ:'FV ';wartosc:987.456),
    (typ:'FV ';wartosc:789.098),
    (typ:'FVZ';wartosc:123.321),
    (typ:'FVZ';wartosc:234.432),
    (typ:'FV';wartosc:345.543),
    (typ:'FV';wartosc:567.765),
    (typ:'FVZ';wartosc:1.0)
    );

procedure print(item : info);
begin
   writeln(item.typ, item.wartosc);
end; { print }

begin
   for i := 1 to ITEMS_NR do
      begin
	 push(ItemsTab[i]);
	 print(ItemsTab[i]);
      end;
   writeln();
   for i := 1 to ITEMS_NR+1 do
   begin
      item := pop();
      print(item);
   end;
end.
